home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d12
/
asmbler.arc
/
MOVE.ASM
< prev
next >
Wrap
Assembly Source File
|
1988-11-19
|
625b
|
29 lines
ASSUME CS:MOVEC,DS:MOVEC,ES:MOVEC,SS:MOVEC
MOVEC SEGMENT PARA PUBLIC 'CODE'
INCLUDE UTIL.INC
ORG 100H
MOVE: XOR BX,BX
MOV CL,BYTE PTR [BX].UPA
XOR CH,CH
LEA DI,[BX+1].UPA
SCANPARAM DX,ERROR1
SCANPARAM SI,ERROR1
SCANPARAM BX,MOV1
JMP ERROR1
MOV1: MOV DI,SI
MOV AH,56H
INT 21H
JC ERROR
NORMALTERM
ERROR1: MOV AX,19
ERRORTERM
ASSUME CS:MOVEC,DS:MOVEC,ES:MOVEC,SS:MOVEC
MWRITESTR
MWRITELN
MOVEC ENDS
END MOVE